﻿
Partial Class webprogram_index
    Inherits System.Web.UI.Page


    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        checkSessionTimeout(Me)
        checkData(Me)
        Me.Label_Uid.Text = Session("admin_Uid")
        Me.Label_Role.Text = RoleName(Session("admin_role"))
        Me.Label_Logins.Text = Session("admin_Logintimes")
        Me.Label_lsLogintime.Text = Session("admin_lsLogintime")
        Me.divMenuList.InnerHtml = getMenulist(Session("admin_role"))
    End Sub
End Class
